home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 09, No. 09 (1988-09)(MicroSPARC)(Side A).zip / Nibble Volume 09, No. 09 (1988-09)(MicroSPARC)(Side A).po / MAZE.bas < prev    next >
BASIC Source File  |  1996-12-24  |  562b  |  2 lines
  1. 10  RESTORE : HOME :X = 10:Y = 10: HGR : HCOLOR= 3: FOR I = 768 TO 780: READ A: POKE I,A: NEXT : POKE 232,0: POKE 233,3: SCALE= 1: FOR I = 1 TO 70: ROT= ( RND(1) >.5) *16: DRAW 1 AT  RND(1) *250, RND(1) *180: NEXT : SCALE= 4: FOR I = 1 TO 99999: DRAW 2 AT X,Y: IF  PEEK(234) >0 GOTO 10
  2. 20  HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0: XDRAW 2 AT X,Y:X = X +2 *( PDL(0) >200) -2 *( PDL(0) <75):Y = Y +2 *( PDL(1) >200) -2 *( PDL(1) <75): VTAB 23: PRINT "SCORE:";I:I = I +(X >269) *(Y >150) *(99999 -I): NEXT : PRINT "YOU WIN!": DATA  2,0,6,0,9,0,4,5,5,0,53,39,0